home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / GFXFX2.ZIP / SWITCH.PAS < prev    next >
Pascal/Delphi Source File  |  1995-02-14  |  839b  |  30 lines
  1.  
  2. program switch; { SWITCH.PAS }
  3. { Switching number of lines: 12,14,21,25,28,43,50, by Bas van Gaalen }
  4. uses u_misc,u_txt,u_kb;
  5. var key:word;
  6. begin
  7.   setscr; nwindow(2,2,15,10,' set lines ',pos_hi+pos_mi,
  8.     _lightgray+lightcyan,_lightgray+darkgray,darkgray);
  9.   dspat('1. 12 lines',3,3,_lightgray);
  10.   dspat('2. 14 lines',3,4,_lightgray);
  11.   dspat('3. 21 lines',3,5,_lightgray);
  12.   dspat('4. 25 lines',3,6,_lightgray);
  13.   dspat('5. 28 lines',3,7,_lightgray);
  14.   dspat('6. 43 lines',3,8,_lightgray);
  15.   dspat('7. 50 lines',3,9,_lightgray);
  16.   repeat
  17.     key:=getekey;
  18.     case key of
  19.       crsr1:txt_lines(12);
  20.       crsr2:txt_lines(14);
  21.       crsr3:txt_lines(21);
  22.       crsr4:txt_lines(25);
  23.       crsr5:txt_lines(28);
  24.       crsr6:txt_lines(43);
  25.       crsr7:txt_lines(50);
  26.     end;
  27.   until key=crsresc;
  28.   getscr;
  29. end.
  30.